home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c-part2 / 13469 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  827 b 
  1. Path: csulb.edu!rgelb
  2. From: rgelb@csulb.edu (Robert Gelb)
  3. Newsgroups: comp.lang.c
  4. Subject: Help to translate from AdA to C/C++
  5. Date: 8 Apr 1996 03:11:17 GMT
  6. Organization: Cal State Long Beach
  7. Message-ID: <4ka04l$d2d@hatathli.csulb.edu>
  8. NNTP-Posting-Host: heart.engr.csulb.edu
  9.  
  10. I am having a hell of a time trying to translate this ADA program into 
  11. C/C++.  Maybe someone can help me.
  12. Here is the program:
  13.  
  14. type person(sex:gender);
  15. type car;
  16. type person_name is access person;
  17. type car_name is access car;
  18.  
  19. type car is 
  20.     record
  21.         number: integer;
  22.         owner: person_name;
  23.     end record;
  24.  
  25. type person(sex:gender) is 
  26.     record
  27.         name    :string(1..20);
  28.         birth    :date;
  29.         age    :integer range 0..130;
  30.         vehicle    : car_name;
  31.         case sex is
  32.             when M =>
  33.                 wife: person_name(F);
  34.             when F =>
  35.                 husband:person_name(M);
  36.         end case;
  37.     end record;
  38.  
  39.